home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / xceedzip / MAIN.PAS < prev    next >
Pascal/Delphi Source File  |  1999-04-26  |  35KB  |  786 lines
  1. unit Main;
  2. {==================================================================}
  3. { Description: Getting Started Sample Application                  }
  4. { Copyright:   ⌐ Copyright 1995-1999 Xceed Software Inc.           }
  5. {                All Rights Reserved.                              }
  6. {==================================================================}
  7.  
  8. interface
  9.  
  10. uses
  11.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  12.   OleCtrls, XceedZipLib_TLB, ComCtrls, StdCtrls, checklst;
  13.  
  14. const
  15.   { Property hints }
  16.   cBasePathHint = 'BasePath property:' + #13#10 +
  17.     '    This path determines where entries in the FilesToProcess and FilesToExclude' + #13#10 +
  18.     '    properties are relative to. The base path never appears in the zip file, even if' + #13#10 +
  19.     '    PreservePaths = True. Only the portion of the path and filename specified in' + #13#10 +
  20.     '    the FilesToProcess property is actually stored in the zip file. Therefore,' + #13#10 +
  21.     '    BasePath helps you control what portions of paths are stored in the zip file.' + #13#10 +
  22.     '    (The BasePath property is irrelevant when you are using absolute paths)';
  23.  
  24.   cFilesToProcessHint = 'FilesToProcess property:' + #13#10 +
  25.     '    Multiline string that contains all the filenames and/or file masks to be' + #13#10 +
  26.     '    processed (zipped, unzipped, etc). If you entered a path in the' + #13#10 +
  27.     '    BasePath property, all entries with relative paths will be relative to' + #13#10 +
  28.     '    the specified base path. The pipe character can be used instead of' + #13#10 +
  29.     '    the linefeed to separate entries for the FilesToProcess property.';
  30.  
  31.   cFilesToExcludeHint = 'FilesToExclude property:' + #13#10 +
  32.     '    Multiline string that contains all filenames and/or file masks to exclude' + #13#10 +
  33.     '    from the files to be processed by the FilesToProcess property. These' + #13#10 +
  34.     '    entries are also relative to the path specified in the BasePath property' + #13#10 +
  35.     '    if its not empty.';
  36.  
  37.   cProcessSubfoldersHint = 'ProcessSubfolders property:' + #13#10 +
  38.     '    If set to True, the contents of all encoutered subfolders will be processed.';
  39.  
  40.   cZipFilenameHint = 'ZipFilename property:' + #13#10 +
  41.     '    The filename of the zip file to work with. When unzipping, this file must' + #13#10 +
  42.     '    exist. When zipping, if the file exists, it''s updated. Otherwise, it is' + #13#10 +
  43.     '    created. You must enter an absolute path for this property. The' + #13#10 +
  44.     '    BasePath property does not interfere with the ZipFilename property.';
  45.  
  46.   cPreservePathsHint = 'PreservePaths property:' + #13#10 +
  47.     '    If set to True, the zip file will store both the path and the filename of' + #13#10 +
  48.     '    each file that is being zipped. As usual, the portion of a file''s path' + #13#10 +
  49.     '    that is specified in the BasePath property will not be stored in the' + #13#10 +
  50.     '    zip file. When PreservePaths is set to False, only filenames (no' + #13#10 +
  51.     '    paths) are stored.';
  52.  
  53.   cUseTempFileHint = 'UseTempFile property:' + #13#10 +
  54.     '    If set to true, all zipping operations will be performed on a temp file' + #13#10 +
  55.     '    located in the folder specified in the TempFolder property.' + #13#10 +
  56.     '    Otherwise, the operation is performed directly on the zip file' + #13#10 +
  57.     '    without using a temp file. You cannot remove files from an existing' + #13#10 +
  58.     '    zip file, or update files already in an existing zip files without setting' + #13#10 +
  59.     '    this property to True.';
  60.  
  61.   cTempFolderHint = 'TempFolder property:' + #13#10 +
  62.     '    Location of the temp file when the UseTempFile property is set to True.' + #13#10 +
  63.     '    When you leave this property empty, the Windows default temp' + #13#10 +
  64.     '    directory is used.';
  65.  
  66.   cRequiredFileAttributesHint = 'RequiredFileAttributes property:' + #13#10 +
  67.     '    Bit-field value that specifies all attributes that a file must have in' + #13#10 +
  68.     '    order to be included in the process.';
  69.  
  70.   cExcludedFileAttributesHint = 'ExcludedFileAttributes property:' + #13#10 +
  71.     '    Bit-field value that specifies all attributes that a file must NOT have' + #13#10 +
  72.     '    in order to be included in the process.';
  73.  
  74.   cMinDateToProcessHint = 'MinDateToProcess property:' + #13#10 +
  75.     '    Minimum value of a file''s ''Last modifed date'' required in order to be' + #13#10 +
  76.     '    included in the process.';
  77.  
  78.   cMaxDateToProcessHint = 'MaxDateToProcess property:' + #13#10 +
  79.     '    Maximum value of a file''s ''Last modifed date'' required in order to be' + #13#10 +
  80.     '    included in the process.';
  81.  
  82.   cMinSizeToProcessHint = 'MinSizeToProcess property:' + #13#10 +
  83.     '    Minimum file size that a file must have in order to be included in the process.';
  84.  
  85.   cMaxSizeToProcessHint = 'MaxSizeToProcess property:' + #13#10 +
  86.     '    Maximum file size that a file must have in order to be included in the process.';
  87.  
  88.   cUnzipToFolderHint = 'UnzipToFolder property:' + #13#10 +
  89.     '    Destination folder for files being unzipped. In this sample, the PreservePaths' + #13#10 +
  90.     '    property is set to True, so if files are stored in the zip file with paths, those' + #13#10 +
  91.     '    stored paths will be recreated inside the destination folder specified by the' + #13#10 +
  92.     '    UnzipToFolder property.';
  93.  
  94.   cSkipIfExistingHint = 'SkipIfExisting property:' + #13#10 +
  95.     '    If the destination file (located in a zip file that is being updated, or' + #13#10 +
  96.     '    on disk when a zip file is being unzipped) already exists, and this' + #13#10 +
  97.     '    property is set to True, then the file won''t be overwritten. This has' + #13#10 +
  98.     '    the effect of only processing files that don''t exist in the destination' + #13#10 +
  99.     '    zip file or unzipping folder.';
  100.  
  101.   cSkipIfNotExistingHint = 'SkipIfNotExisting property:' + #13#10 +
  102.     '    Setting this property to True will cause only files that don''t already' + #13#10 +
  103.     '    exist in the destination unzipping location (when unzipping) or the' + #13#10 +
  104.     '    zip file (when zipping) to be skipped.';
  105.  
  106.   cSkipIfOlderDateHint = 'SkipIfOlderDate property:' + #13#10 +
  107.     '    When updating a file (in a zip while zipping, or on disk while unzipping),' + #13#10 +
  108.     '    the file is skipped if the existing file''s ''Last modified date'' is greater than' + #13#10 +
  109.     '    the file being zipped or unzipped.';
  110.  
  111.   cSkipIfOlderVersionHint = 'SkipIfOlderVersion property:' + #13#10 +
  112.     '    When updating a file (in a zip while zipping, or on disk while unzipping),' + #13#10 +
  113.     '    the file is skipped if the existing file''s version resource value is greater' + #13#10 +
  114.     '    than the file being zipped or unzipped.';
  115.  
  116.   cZipFilenameSfxHint = 'ZipFilename property with Sfx:' + #13#10 +
  117.     '    The filename of the zip file to work on. When creating or updating' + #13#10 +
  118.     '    self-extracting zip files, you should enter an executable filename' + #13#10 +
  119.     '    (use a .EXE extension).';
  120.  
  121.   cSfxBinaryModuleHint  = 'SfxBinaryModule property:' + #13#10 +
  122.     '    This binary file will be prepended to the zip file, with configuration' + #13#10 +
  123.     '    data if the binary is one of the Xceed Self-Extractor Module' + #13#10 +
  124.     '    binaries. If you leave this field empty, a regular (non-sfx) zip file' + #13#10 +
  125.     '    will be created.';
  126.  
  127.   cSfxStringsHint = 'SfxStrings property array:' + #13#10 +
  128.     '    This array contains all the strings displayed by the Xceed Self-Extractor' + #13#10 +
  129.     '    Module binaries. For example, the ''xssTitle'' index contains the title' + #13#10 +
  130.     '    displayed by all dialog boxes.';
  131.  
  132.   cSfxMessagesHint  = 'SfxMessages property array:' + #13#10 +
  133.     '    This array contains all messages displayed by the Xceed Self-Extractor Module' + #13#10 +
  134.     '    binaries. These messages often appear in their own dialog boxes. If a particular' + #13#10 +
  135.     '    message is left empty, the dialog box won''t be display